home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 98 / Skunkware 98.iso / src / interp / perl5.005.tar.gz / perl5.005.tar / perl5.005 / t / op / defins.t < prev    next >
Text File  |  1998-06-21  |  2KB  |  147 lines
  1. #!./perl -w
  2.  
  3. #
  4. # test auto defined() test insertion
  5. #
  6.  
  7. BEGIN {
  8.     chdir 't' if -d 't';
  9.     @INC = '../lib';
  10.     $SIG{__WARN__} = sub { $warns++; warn $_[0] };
  11.     print "1..14\n";
  12. }
  13.  
  14. $wanted_filename = $^O eq 'VMS' ? '0.' : '0';
  15.     
  16. print "not " if $warns;
  17. print "ok 1\n";
  18.  
  19. open(FILE,">./0");
  20. print FILE "1\n";
  21. print FILE "0";
  22. close(FILE);
  23.  
  24. open(FILE,"<./0");
  25. my $seen = 0;
  26. my $dummy;
  27. while (my $name = <FILE>)
  28.  {
  29.   $seen++ if $name eq '0';
  30.  }            
  31. print "not " unless $seen;
  32. print "ok 2\n";
  33.  
  34. seek(FILE,0,0);
  35. $seen = 0;
  36. my $line = '';
  37. do 
  38.  {
  39.   $seen++ if $line eq '0';
  40.  } while ($line = <FILE>);
  41.  
  42. print "not " unless $seen;
  43. print "ok 3\n";
  44.  
  45.  
  46. seek(FILE,0,0);
  47. $seen = 0;    
  48. while (($seen ? $dummy : $name) = <FILE>)
  49.  {
  50.   $seen++ if $name eq '0';
  51.  }
  52. print "not " unless $seen;
  53. print "ok 4\n";
  54.  
  55. seek(FILE,0,0);
  56. $seen = 0;    
  57. my %where;    
  58. while ($where{$seen} = <FILE>)
  59.  {
  60.   $seen++ if $where{$seen} eq '0';
  61.  }
  62. print "not " unless $seen;
  63. print "ok 5\n";
  64.  
  65. opendir(DIR,'.');
  66. $seen = 0;
  67. while (my $name = readdir(DIR))
  68.  {
  69.   $seen++ if $name eq $wanted_filename;
  70.  }            
  71. print "not " unless $seen;
  72. print "ok 6\n";
  73.  
  74. rewinddir(DIR);
  75. $seen = 0;    
  76. $dummy = '';
  77. while (($seen ? $dummy : $name) = readdir(DIR))
  78.  {
  79.   $seen++ if $name eq $wanted_filename;
  80.  }
  81. print "not " unless $seen;
  82. print "ok 7\n";
  83.  
  84. rewinddir(DIR);
  85. $seen = 0;    
  86. while ($where{$seen} = readdir(DIR))
  87.  {
  88.   $seen++ if $where{$seen} eq $wanted_filename;
  89.  }
  90. print "not " unless $seen;
  91. print "ok 8\n";
  92.  
  93. $seen = 0;
  94. while (my $name = glob('*'))
  95.  {
  96.   $seen++ if $name eq $wanted_filename;
  97.  }            
  98. print "not " unless $seen;
  99. print "ok 9\n";
  100.  
  101. $seen = 0;    
  102. $dummy = '';
  103. while (($seen ? $dummy : $name) = glob('*'))
  104.  {
  105.   $seen++ if $name eq $wanted_filename;
  106.  }
  107. print "not " unless $seen;
  108. print "ok 10\n";
  109.  
  110. $seen = 0;    
  111. while ($where{$seen} = glob('*'))
  112.  {
  113.   $seen++ if $where{$seen} eq $wanted_filename;
  114.  }
  115. print "not " unless $seen;
  116. print "ok 11\n";
  117.  
  118. unlink("./0");
  119.  
  120. my %hash = (0 => 1, 1 => 2);
  121.  
  122. $seen = 0;
  123. while (my $name = each %hash)
  124.  {
  125.   $seen++ if $name eq '0';
  126.  }            
  127. print "not " unless $seen;
  128. print "ok 12\n";
  129.  
  130. $seen = 0;    
  131. $dummy = '';
  132. while (($seen ? $dummy : $name) = each %hash)
  133.  {
  134.   $seen++ if $name eq '0';
  135.  }
  136. print "not " unless $seen;
  137. print "ok 13\n";
  138.  
  139. $seen = 0;    
  140. while ($where{$seen} = each %hash)
  141.  {
  142.   $seen++ if $where{$seen} eq '0';
  143.  }
  144. print "not " unless $seen;
  145. print "ok 14\n";
  146.  
  147.